home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 15 / 015.d81 / address file (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  144 lines
  1. 10 rem ***********************
  2. 12 rem * random file example *
  3. 14 rem ***********************
  4. 16 dimi$(664):fd=0:fx=5:ch=2:fp=1
  5. 18 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  6. 20 print"  insert data sheet"
  7. 22 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  8. 24 print"    start press 's'"
  9. 26 getp$:ifp$<>"s"then26
  10. 28 open15,8,15,"i0":open2,8,2,"#"
  11. 30 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  12. 32 print"index file operation"
  13. 34 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  14. 36 input"     new sheet? n[157][157][157]";o$:print""
  15. 38 ifo$="n"then46
  16. 40 ifo$<>"y"then36
  17. 42 print:print"    wait!":fori=1to664
  18. 44 print"    [157][157][157][157][157]"i;:i$(i)="/"
  19. 45 printi$(i):next:goto50
  20. 46 open5,8,5,"0:index,s,r"
  21. 47 fori=1to664:input#5,i$(i)
  22. 48 print i;" ";i$(i)
  23. 49 nexti:close5
  24. 50 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  25. 52 print"     job menu        "
  26. 54 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  27. 56 print
  28. 58 print"     1=create"
  29. 60 print"     2=delete"
  30. 62 print"     3=search"
  31. 64 print"     0=end"
  32. 65 print
  33. 66 input"1 , 2 , 3 , 0   1[157][157][157]";o$
  34. 68 ifo$="0"thenclose15:close5:close2:      goto63000
  35. 70 ifo$="1"then104
  36. 72 if o$="3" then 8000
  37. 74 ifo$<>"2"then50
  38. 76 goto200
  39. 100 rem ***********************
  40. 102 rem * master file create  *
  41. 103 rem ***********************
  42. 104 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  43. 105 print" [160]master file create"
  44. 106 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  45. 107 input"record no. = 0[157][157][157]";f
  46. 109 if f=0then170
  47. 110 input"name     =.[157][157][157]";fb$(1)
  48. 120 input"address  =.[157][157][157]";fb$(2)
  49. 130 input"zip      =.[157][157][157]";fb$(3)
  50. 132 input"tel      =.[157][157][157]";fb$(4)
  51. 134 input"comment  =.[157][157][157]";fb$(5)
  52. 140 gosub5200
  53. 150 i$(f)=fb$(1)
  54. 160 goto104
  55. 170 open5,8,5,"@0:index,s,w"
  56. 175 fori=1to664:print#5,i$(i);chr$(13);
  57. 180 print i;" ";i$(i)
  58. 185 next:close5
  59. 190 goto74
  60. 200 rem ***********************
  61. 201 rem *  master file delete *
  62. 202 rem ***********************
  63. 210 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  64. 212 print"  master file delete"
  65. 214 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":print
  66. 220 input"record no. = 0[157][157][157]";f
  67. 230 iff=0then260
  68. 235 ifi$(f)<>"1"then220
  69. 240 i$(f)="/":print"record no."f;"delete"
  70. 250 goto220
  71. 260 open5,8,5,"@0:index,s,w"
  72. 265 fori=1to664:print#5,i$(i);chr$(13);
  73. 270 print i;" ";i$(i)
  74. 275 next:close5
  75. 280 goto50
  76. 300 rem ***********************
  77. 301 rem *  file search        *
  78. 302 rem ***********************
  79. 310 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  80. 312 print"       search       "
  81. 314 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":print
  82. 320 input"record no. = 0[157][157][157]";f
  83. 321 iff=0then50
  84. 322 if i$(f)="/" then goto 320
  85. 325 gosub5100
  86. 360 print"name  [160][160] = ";fb$(1)
  87. 370 print"address  = ";fb$(2)
  88. 380 print"zip   [160][160] = ";fb$(3)
  89. 382 print"tel   [160][160] = ";fb$(4)
  90. 383 print"comment[160] = ";fb$(5)
  91. 385 print"---------------------"
  92. 390 goto320
  93. 5100 rem ***********************
  94. 5105 rem * fdd block read      *
  95. 5108 rem ***********************
  96. 5110 gosub5330
  97. 5120 print#15,"u1:";ch;fd;ft;fs
  98. 5130 print#15,"b-p:";ch;fp
  99. 5140 gosub5270
  100. 5150 forfi=1tofx
  101. 5160 input#ch,fb$(fi):
  102. 5180 next
  103. 5190 return
  104. 5200 rem ***********************
  105. 5201 rem * fdd block write     *
  106. 5202 rem ***********************
  107. 5210 gosub5330
  108. 5220 print#15,"b-p:";ch;fp
  109. 5230 forfi=1tofx:print#ch,fb$(fi);chr$(13);:next
  110. 5240 print#15,"u2:";ch;fd;ft;fs
  111. 5250 gosub5270
  112. 5260 return
  113. 5270 rem ***********************
  114. 5275 rem *  error check        *
  115. 5278 rem ***********************
  116. 5280 input#15,en,em$,et,es
  117. 5290 ifen=0thenreturn
  118. 5300 print"error status:";en;em$;et;es
  119. 5310 input"continue?";y$:ify$="y"thenreturn
  120. 5320 stop
  121. 5322 rem ***********************
  122. 5324 rem * set track & sector  *
  123. 5326 rem ***********************
  124. 5330 iff<358thenf1=0:f2=22:f3=1:goto5370
  125. 5340 iff>357andf<472thenf1=357:f2=20:f3=19:goto5370
  126. 5350 iff>471andf<580thenf1=471:f2=19:f3=25:goto5370
  127. 5360 iff>579thenf1=579:f2=18:f3=31
  128. 5370 ft=int(((f-f1)-1)/(f2-1))+f3
  129. 5380 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
  130. 5390 return
  131. 8000 print"[147]"
  132. 8005 input "last name/first";an$
  133. 8010 na=len(an$)
  134. 8020 for l=1to664
  135. 8025 n1$=i$(l)
  136. 8030 n2$=left$(n1$,na)
  137. 8045 if an$=n2$then print "file#=";l;"name=";n1$
  138. 8046 next
  139. 8050 input "another name y/n";ii$
  140. 8060 if ii$="y"goto8005
  141. 8070 goto 300
  142. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  143. 63010 poke631,13:poke632,13:poke198,2:        end
  144.